#include "FiveWin.ch"

#define BS_GROUPBOX 7

//----------------------------------------------------------------------------//

CLASS TGroup FROM TControl

   METHOD New( nTop, nLeft, nBottom, nRight, cLabel, oWnd ) CONSTRUCTOR
   METHOD cToChar() BLOCK { | Self | Super:cToChar( "BUTTON" ) }

ENDCLASS

//----------------------------------------------------------------------------//

METHOD New( nTop, nLeft, nBottom, nRight, cLabel, oWnd ) CLASS TGroup

   ::nTop     = nTop    * 14
   ::nLeft    = nLeft   *  7
   ::nBottom  = nBottom * 14
   ::nRight   = nRight  *  7
   ::cCaption = cLabel
   ::oWnd     = oWnd
   ::nStyle   = nOR( WS_CHILD, WS_VISIBLE, BS_GROUPBOX )

   if oWnd:ClassName() != "TDIALOG"
      ::Create( "BUTTON" )
   else
      oWnd:DefControl( Self )
   endif

return

//----------------------------------------------------------------------------//
